Winzipper/Winzipper_ISO.iso/programming/oracle7 7.2/NET/NMP22/NMP22.VRF

Text File | 1995-10-13 | 5.3 KB | 128 lines

/* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */
/*****************************************************************************
  NAME
    nmp22.vrf - Windows 95 V3 installation verification script for
                NMP Protocol Adapter.

  DESCRIPTION
    This script checks dependencies and environment settings for installation
    of the Windows 95 NMP product.

  OWNER
    Lav Jain

  MODIFIED    DD-MMM-YY Reason
    trodgers  10-APR-92 Created.
    zkhan     11-AUG-93 Modified for SQLNET and for using V3.0.9.3.2 or later
            of the installer.
    eflores   06-APR-94 Modified for Windows NT.
    ljain     07-JUL-95 Modified for Windows 95.
*****************************************************************************/
{
 { doit = execute("%installer_home%\win95.vrf"); }
  [
    'UNBOUND_VARIABLE:
      {
        required_version = product_version(w95instver);
        temp = explode(required_version,".");
        required_version = implode(list(first(temp),first(rest(temp)),
                                        first(rest(rest(temp))),
                                        first(rest(rest(rest(temp))))),".");
        signal('failure,instantiate(nls("instver_too_early1","The version of
the Installer currently running is %%installer_version%%. The installation you
have chosen requires version %%required_version%% or later. Please run version
%%required_version%% or later in order to perform this installation.")));
      }
  ]


 if (not(doit) && (version_status == 'reinstall))
    doit = TRUE;

 if (doit)
 {
    protocol_prompt = nls("protocol_prompt", "The NetBEUI network protocol is currently not installed on your machine. Oracle Named Pipes Protocol Adapter cannot function without this network protocol. Would you still like to install it?");
    protocol_prompt_content = nls("protocol_prompt_content", "NetBEUI Protocol Not Installed");
    protocol_prompt_help = nls("protocol_prompt_help", "The NetBEUI network protocol is currently not installed on your machine. Oracle Named Pipes Protocol Adapter cannot function without this network protocol.

The NetBEUI network protocol enables data transfer in a Microsoft Network environment or LAN Manager environment.

If you are not familiar with network transport protocols, please contact your network administrator.

YES installs the Oracle Named Pipes Protocol Adapter.

NO does not install the Oracle Named Pipes Protocol Adapter.");

    yes_ans = nls("yes_ans","Yes");
    no_ans = nls("no_ans","No");
    yes_no_list = list(yes_ans, no_ans);

   if(not(win32_key_exists("HKEY_LOCAL_MACHINE",
                           "System\CurrentControlSet\Services\VxD\NETBEUI")))
   {
      ans = single_selection_dialog(protocol_prompt, yes_no_list, no_ans, protocol_prompt_content, protocol_prompt_help);
      if (ans == no_ans)
      {
        extract(products_for_installation, w95nmp22);
        doit = FALSE;
      }
   }
 }



 if (doit)
  {

    vrf_ratchet = "2.2.2.0.0";

    net2_register = nls("net2_register","Registering %%product_label%%...");

    net2_install_script = nls("net2_install_script","Installing %%product_label%% Installation Scripts...");

    net2_install_dll = nls("net2_install_dll","Installing %%product_label%% DLL's...");

    no_protocol = nls("no_protocol", "Oracle Named Pipes Protocol Adapter not installed.");

    nmp22_expl = nls("nmp22_expl", "A %%product_label%% DLL (NTNNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Silent mode installation of %%product_label%% terminated.");
    nmp22_inst = instantiate(nls("nmp22_inst", "A %%product_label%% DLL (NTNNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.

Choose CANCEL to terminate the installation of %%product_label%%.
    "));
    nmp22_inst_term = instantiate(nls("nmp22_inst_term", "%%product_label%% installation terminated."));
    nmp22_inst_content = instantiate(nls("nmp22_inst_content", "%%product_label%% DLL Used"));
    nmp22_inst_help = instantiate(nls("nmp22_inst_help", "The Oracle Installer has detected that a %%product_label%% DLL (NTNNT.DLL) is being used on this machine.  Please stop all Oracle applications that are using %%product_label%% before installing %%product_label%%.

Choose OK after you have closed all Oracle applications and want to resume the installation of %%product_label%%.

Choose CANCEL to terminate the installation of %%product_label%%.
    "));

   done = FALSE;
   while(not(done))
   { move_file("%ORACLE_HOME%\bin\ntnnt.dll", "%ORACLE_HOME%\bin\ntnnt.dll"); done = TRUE;}
    [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
      {
        if (silent_mode)
          signal('FAILURE, instantiate(nmp22_expl));
        else
          information_dialog(instantiate(nmp22_inst), nmp22_inst_content, instantiate(nmp22_inst_help));
      }
      'FILE_NOT_FOUND:
        done = TRUE;
    ]


    return(sum(dll,deinstl));
   }
   else
   {
    refresh_map_file = FALSE;
    return(0);
   }
}